Holt Researcher: American History/Holt Researcher: American History.iso/pc/modules/tour.dxr/00441_Tour Class.ls

Text File | 2000-01-21 | 626 b | 35 lines

property pFindObj

on new me
  return me
end

on InitTextEntries me
  repeat with rc in ["txtField4", "txtField1", "txtField2", "txtField3"]
    member(rc).text = EMPTY
  end repeat
end

on InitFindObj me, buttonName, castName, theChannel, theStageLoc, descendant
  if objectp(descendant) then
    object = descendant
  else
    object = me
  end if
  pFindObj = new(script("generic button"), buttonName, castName, theChannel, theStageLoc, object)
  Inscope(pFindObj)
  return me
end

on GetFindObj
  return pFindObj
end

on condemn me
  if objectp(pFindObj) then
    condemn(pFindObj)
  end if
  pFindObj = 0
  return me
end